home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / database / cbin / inter.prg < prev    next >
Encoding:
Text File  |  1987-07-06  |  618 b   |  30 lines
  1. * inter.prg
  2. * prg front-end to inter.bin
  3. * AS 7/4/87
  4. * e.g., do inter with 33,8*256,0,0,0
  5.  
  6. proc inter
  7. param intno,ax,bx,cx,dx
  8. private cmd
  9.  
  10. * call the BIN routine
  11. cmd = ltrim(str(intno)+str(ax)+str(bx)+str(cx)+str(dx))+space(10)
  12. call inter with cmd
  13.  
  14. * parse return string into registers
  15. ax=int(val(substr(cmd,1,5)))
  16. bx=int(val(substr(cmd,7,5)))
  17. cx=int(val(substr(cmd,13,5)))
  18. dx=int(val(substr(cmd,19,5)))
  19.  
  20. * get hiword and loword of registers
  21. ah=int(ax/256)
  22. al=int(mod(ax,256))
  23. bh=int(bx/256)
  24. bl=int(mod(bx,256))
  25. ch=int(cx/256)
  26. cl=int(mod(cx,256))
  27. dh=int(dx/256)
  28. dl=int(mod(dx,256))
  29. return
  30.